home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / net.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.0 KB  |  40 lines
  1. if (!defined &_NET_USER) {
  2.     eval 'sub _NET_USER {1;}';
  3.     eval 'sub NET_ADDRESS_COMPARE {
  4.         local($a,$b) = @_;
  5.         eval "( &bcmp((\'char\' *) &($a), (\'char\' *) &($b), $sizeof{ &Net_Address}))";
  6.     }';
  7.     eval 'sub NET_MAX_PROTOCOLS {2;}';
  8.     eval 'sub NET_PROTO_RAW {0;}';
  9.     eval 'sub NET_PROTO_INET {1;}';
  10.     eval 'sub NET_ROUTE_VERSION {0x70500;}';
  11.     eval 'sub NET_NUM_NETWORK_TYPES {2;}';
  12.     eval 'sub NET_NETWORK_ETHER {(( &Net_NetworkType) 0);}';
  13.     eval 'sub NET_NETWORK_ULTRA {(( &Net_NetworkType) 1);}';
  14.     eval 'sub NET_FLAGS_VALID {0x1;}';
  15.     eval 'sub NET_BROADCAST_HOSTID {0;}';
  16.     if (!defined &KERNEL) {
  17.     }
  18.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  19.     }
  20.     else {
  21.     eval 'sub Net_NetToHostInt {
  22.         local($arg) = @_;
  23.         eval "($arg)";
  24.     }';
  25.     eval 'sub Net_HostToNetInt {
  26.         local($arg) = @_;
  27.         eval "($arg)";
  28.     }';
  29.     eval 'sub Net_NetToHostShort {
  30.         local($arg) = @_;
  31.         eval "($arg)";
  32.     }';
  33.     eval 'sub Net_HostToNetShort {
  34.         local($arg) = @_;
  35.         eval "($arg)";
  36.     }';
  37.     }
  38. }
  39. 1;
  40.